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This is the first of the Itty Bitty Bytes books in the Creative 
Pastimes series for the Commodore 64 Computer. Each book 
in the series is designed to bring you twenty fun programs and, 
at the same time, teach you something about BASIC. Typing in 
the programs is hard work. Often it will be necessary for you to 
translate the directions on the printout in order to know what 
keys to press on the keyboard. You must be careful to number 
the lines exactly, spell the words correctly, and put in all the 
required punctuation. But you will feel extra good when your 
program runs smoothly! 

In the Itty Bitty Bytes series of books two pages are devoted 
to each program. The page on the left contains the program 
itself. The page on the right contains explanations about each 
program. 

Always read the explanations. Sometimes there are addi¬ 
tions or changes that you can make to improve the program. 
Once you see what the program is all about, feel free to experi¬ 
ment with it—and by all means combine programs that work 
well together. The more you can do to make a program reflect 
your own special personality, the more you will enjoy it. Let me 
know if you find some nifty changes. I love to get mail! 

The Itty Bitty Bytes series has grown out of the teaching 
experiences I’ve had with my computer students. Special thank- 
yous go to all my “COMPU-KIDS”—and to my own kids, too— 
who keep presenting me with one good idea after another. They 
are my severest critics, but my most outstanding assets. 

Happy computing! 

Claire Bailey Passantino 
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A Note to Parents and Teachers 

You bought the computer. You read the manuals. You did the demo pro¬ 
grams. You and/or your children may even have taken some computer class¬ 
es. But now the computer is just sitting there. Everyone was so enthusiastic. 
What happened? 

The novelty of a new computer will take you just so far. Beyond that point, 
a continuing interest in this incredible tool is directly related to its usefulness. 
“Not useful” equates with “not used.” So the problem becomes, what can 
computers do that children would find useful? What kinds of things would 
encourage children to expend the energy needed to create their own comput¬ 
er programs? 

Each book in the Itty Bitty Bytes series is packed with computer activities 
appealing to young programmers. Simple games, contests, races, pictures, 
designs, songs, riddles, charts, tests, and more—all are designed to be fun 
while reinforcing beginning computer concepts and skills. 

Besides providing fun, there are fringe benefits to having children write 
their own programs. In working with children, I have found that computer 
programming encourages them to: 

• Think creatively. 

• Use logical thinking skills. 

• Attend to details. 

• Take small steps to achieve a goal. 

• Personalize programs. 

• Develop pride and self-esteem. 

• Appreciate packaged software. 

To help children enjoy doing their own programs, here are some sug¬ 
gested DOs and DONTs: 

• DO encourage children to type in their own programs. With younger 
children, bargain: “You type this line and I’ll type the next one.” (Save 
the long lines for yourself!) 

• DON’T criticize typing expertise. Speed and correct fingering are typing 
skills minimally related to computer programming. 

• DO allow children to make mistakes. 

• DO help them find the errors they’ve made. (This is called “debugging” 
the program.) 

• DON’T worry when there is an error message. This means that a mistake 
has been made. Check the program for “bugs.” (The Commodore Com¬ 
puter will give you a ? OUT OF DATA ERROR when you go over a 
READY signal. Ignore this error message. The computer is trying to 
“READ Y” and there is no “Y” to read!) 
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3. 


4. 


DO encourage children to read and understand the program ex¬ 
planations. 

DON’T, however, force the issue. Some people learn by reading. Others 
learn by doing. As skills are repeated over and over in different contexts, 
children may just “catch on.” 

DO be aware of some common pitfalls. Remember to 
1. Use line numbers. 

Press IHS1!II121 after you type in a line of the program, even if the 
cursor has moved itself to the next line on the screen. Moving the 
cursor down the screen does not automatically enter the directions 
into the computer’s memory. To do this you must press 
Give great attention to spelling and punctuation. Quotation marks, 
commas, semicolons, colons, and even spaces are often very 
important. 

Save your program before you turn off the computer. 

DO help children save their programs on tape or disk so they can use 
them again and again. If you have a printer, use it to make “hard” copies 
of each program. People like to see themselves in print. 

DO experiment with the keyboard and get to know how it works in the 
immediate mode. (The immediate mode is when you give the computer 
a direction without a line number. It responds to your command and does 
something— immediately.) A systematic way to experiment would be to 
typ e each ke y, then type it while pressing the l^liaa then while press- 
ing EBB ar| d fina lly while pressing ESI- Example: What happens 
when you press Q, EfflB Q kHi:\m Pci iai Pci ? 

DO understand that a programmed command may look different from an 
immediate command, but it will achieve the same results. For example: 
10 PRINT “H” is what appears on the screen when you press 
H inside the quotation marks of a print statement. However, when you 
type RU N, you will get the same white letters you got by pressing 
Q in the immediate mode. 

DO refer to the Typing Tips in the Appendix. They will help you to 
understand the printouts of the programs, and how to type them on your 
own computer. When you are reading the printouts, it is especially impor¬ 
tant to remember that { } and [ ] and underlined letters are impossible 
to type on the computer keyboard. This will serve to remind you that 
these symbols stand for certain typing procedures. 

DO remember that PilULViaMa gives you back your nor¬ 

mal screen. 

DON’T let the multiple commands needed to create sound discourage 
you and your children from enjoying this feature of the computer. As you 
become more proficient with sound, the possibilities that these variables 
afford will intrigue you. 
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• DO praise children for a job well done. And enjoy the programs that 
they’ve created. 

• DO modify and use programs that you yourself find useful. 

It is my sincere hope that the Itty Bitty Bytes books will help you and your 
children establish a healthy working relationship with your computer. Take 
that computer off the shelf! And let me know how things are working out! 
Good luck. 


x 


ry 
ry 
ry 
ry 
ry 
rs, 
ry 
r> 
ry 
ry 
ry 
ry 
ry 
ry 
O 
r\ 
ry 
ry 
ry 
r\ 
ry 
ry. 
ry 
ry 
ry 
r\ 
ry 
ry 
r 
ry 
ry 
r 
ry 
A 

ry 

ry 

ry 


ry 




w 

V 


Itty Bitty Bytes of Space 

for the Commodore 64® Computer 
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Passing the Test 

How well do you know your planets? To be an astronaut, you 
must pass this test. A score of 90 is passing. Good luck! 

10 C=0:T=0 

20 FOR P=1 TO 500:NEXT P 
30 PRINT CHR$(147) 

40 POKE 53281,0 
50 READ PL$,F$ 

60 IF PL$="END" THEN GOTO 130 
70 PRINT F$ 

80 PRINT "WHAT IS THE PLANET?" 

90 INPUT k$ 

100 T=T+1 

110 IF A$=PL$ THEN PRINT "RIGHT!":C=C+1:GOTO 20 
120 IF A$OPL$ THEN PRINT "WRONG, THE ANSWER 
WAS ";PL$:G0T0 20 
130 SC=INT(C/T*100+.5) 

140 IF SC<90 THEN PRINT "SORRY. YOU DID NOT PASS!" 

150 IF SC>=90 THEN PRINT "YOU PASSED THE TEST!" 

160 PRINT "YOUR SCORE WAS ";SC 

200 DATA SATURN,THE PLANET WITH RINGS 

210 DATA EARTH,OUR PLANET 

220 DATA VENUS,THE MORNING AND EVENING ‘STAR’ 

230 DATA MARS,THE RED PLANET 
240 DATA JUPITER,THE LARGEST PLANET 
250 DATA PLUTO,THE FARTHEST PLANET 
260 DATA MERCURY,NEAREST TO THE SUN 
270 DATA NEPTUNE,NAMED AFTER THE GOD OF THE SEA 
280 DATA URANUS,7TH FROM THE SUN 
290 DATA PLUTO,A FAMOUS DOG 
300 DATA END,END 
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Main Ideas: Designing and scoring a test 

The variables used in this program are as follows: 

C = Number of correct answers 
T = Total number of questions 
PL$ = Planet 

F$ = Fact about the planet 
A$ = Answer 
SC = Score 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140-160 

200-290 

300 


At the beginning of the test, there are no correct answers and the 
total number of questions is 0. 

Pauses. 

Clears the screen. Printing CHR$ (147) is the same as pressing 


SHIFT I CLR/HOME 


Makes the background color 0 (black). 

Reads the name of a planet and the fact about it from the data list. 
Skips to 130 when it reaches the end of the data. 

Prints the fact about the planet. 

Asks for your answer. 

Allows you to input your answer. 

Adds 1 to the total number of questions. 

If you answered correctly, adds 1 to the number correct and goes 
back to line 20 for another question. 

If you answered incorrectly, tells you the correct planet and goes 
back for another question. 

Computes the score. 

Prints an appropriate message. 

The data. 

Flag data to signal the end of the program. (See line 60.) 


If you know more facts about planets, you can add them to your data list. Make 
sure the flag data comes last! You may also use this program to make up a 
test about something else! 
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Gravity 

Surface gravity varies on the planets. As part of your training, 
you must experience various gravitational pulls. How much 
would you weigh on Pluto? On Venus? How about on Jupiter? 
Find out! 

10 PRINT CHR$(147) 

20 PRINT "HOW MUCH DO YOU WEIGH ON EARTH?" 

30 INPUT W 
40 PRINT CHRf(147) 

45 PRINT 

50 PRINT "WEIGHT ON EARTH:";W 

51 PRINT "{15 C}" 

60 PRINT "{DOWNKDOWN}" 

70 PRINT TAB(7)"WEIGHT ON OTHER PLANETS" 

71 PRINT TAB(7)"{23 C}" 

80 PRINT,"PLANET","WEIGHT" 

81 PRINT, "{6 C}","{6 C}" 

90 PRINT 

100 PRINT,"MERCURY",.37*W 
110 PRINT,"VENUS",.88*W 
120 PRINT,"MARS",.38*W 
130 PRINT,"JUPITER",2.64*W 
140 PRINT,"SATURN",1.15*W 
150 PRINT,"URANUS",.79*W 
160 PRINT,"NEPTUNE",1.12*W 
170 PRINT,"PLUTO",.03*W 
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Main Idea: Printing a chart 


10 Clears the screen. 

20 Asks the question. 

30 Allows you to input your weight. 

40 Clears the screen again. 

45 Skips a line. 

50 Prints your weight on earth. 

51 Underlines. I used failiaa Q to underline, but you can use any 
character you like. Experiment! 

60 Moves the cursor down 2 rows. To enter this line, press the 
ttasfflsii key two times. It will look like a JEM on the screen. 

70 Counts over to column 7 and prints the title. 

71 Counts over to column 7 and underlines the title. 

80 The first comma moves the cursor to the second print zone, where 
the column heading is printed. The second comma moves to the 
third print zone, where the next column heading is printed. 

81 Underlines the column headings. 

90 Skips a line. 

100-170 For each planet, prints the name of the planet, then computes and 


prints your weight on that planet. 
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Test Your Spacecraft 

Tomorrow you will take off into outer space. Today you must 
test your spacecraft. Don’t worry. Nothing can go wrong! 

10 PRINT CHR$(147) 

20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT N$ 

40 PRINT CHR$(147) 

50 POKE 53281,0 

60 POKE 53280,2 

70 FOR R=1 TO 10:PRINT:NEXT R 

80 PRINT TAB(5);"HELLO CAPTAIN ";N$ 

90 PRINT 

100 PRINT TAB(5);"ARE YOU READY TO GO?"; 

110 INPUT A$ 

120 PRINT 

130 PRINT TAB(8);"NOTHING CAN GO WRONG" 

140 PRINT 

150 FOR P=1 TO 1500:NEXT P 
160 PRINT "WRONG"; 

170 BG=INT(16*RND(1)) 

180 POKE 53281.BG 
190 GOTO 160 
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Main Idea: Holding a conversation with the computer 
An infinite loop 


10 


20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160-190 

160 

170 

180 


190 


Clears the screen. PRINT CHR$(147) works the same way as 
PRINT “Q” which is obtained by pressing «5naM lt H;Fi5tWj|sB . 
You may use these statements interchangeably. 

Asks the question. 

Allows you to tell your name. 

Clears the screen. 

Makes the background color 0 (black). 

Makes the border color 2 (red). 

Prints 10 blank lines. 

Goes to column 5 to print the message. 

Skips a line by printing a black line. 

Goes to column 5 to ask the question. 

Allows you to answer the question. 

Skips a line. 

Goes to column 8 to print the message. 

Skips a line. 

Pauses while the computer counts to 1500. 

An infinite loop. Press to break the program. Press 

IslUflKSWlsl to get back to the normal screen. 

Prints “WRONG.” Try a comma instead of the semicolon. Then 
take out the comma entirely. 

Selects a number from 0 to 15 for the background color. 

Changes the background color. To change the border color in¬ 
stead, type: 

180 POKE 53280, BG 

Goes back to print the repeating message on a flashing screen. 


Wake Up! 


r\ 
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Adjustments have been made to your spacecraft. Better get 
some sleep. Tomorrow’s your big day. Don’t forget to set the 
alarm clock. 


10 PRINT "{CLR} {10 DOWN}" 

20 POKE 53281,0 

30 PRINT "{WHT}"SPC(12) "NIGHTY NIGHT!" 

40 FOR P=1 TO 3000:NEXT P 

50 FOR R=54272 TO 54296:POKE R,0:NEXT R 

60 POKE 53281,7 

70 PRINT "{CLR} {10 DOWN}" 

80 PRINT "{RED}"SPC(13)"WAKE UP!" 

90 POKE 54273,60 

100 POKE 54277,9 

110 POKE 54296,15 

120 FOR N=1 TO 12 

130 POKE 54276,21 

140 FOR P=1 TO 70:NEXT P 

150 POKE 54276,20 

160 NEXT N 

170 POKE 53281,2 

180 FOR P=1 TO 50:NEXT P 

190 GOTO 60 
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Main Idea: Making an alarm clock sound 


10 Clears the screen and moves the cursor down 10 rows. Type this 
line by pressing ElilUU E3«flSEE3 . then 10 HtisfckM . 

20 Makes the screen black. 

30 Makes the l etters wh ite, skips 12 spaces, and prints. To get the 
{WHT}, type mill Q. It will look like Q on the screen. 

40 Pauses while the computer counts to 3000. 

50 Clears all the sound registers. The addresses devoted to sound are 
numbered 54272 to 54296. 

60 Makes the screen yellow. 

70 Clears the screen and moves the cursor down 10 rows. (See line 
10 for directions on how to type.) 

80 Makes the l etters re d, skips 13 spaces, and prints. To get the 
{RED}, typeisUUUlEI It will look like Q on the screen. (On the 
yellow screen, the red letters look almost black.) 

90 Sets the high frequency at 60. (For a different pitch, you may select 
numbers from 1 to 255.) 

100 Sets the variable for attack/decay. 

110 Sets the loudness (15 is loudest). 

120-160 This section makes one trill. To make the trill, the waveform is 
turned on (line 130), held while the computer counts to 70 (line 
140), and then turned off (line 150). This procedure is repeated 12 
times. 

170 Makes the background red. The letters seem to disappear. 

180 Pauses briefly while the computer counts to 50. 

190 Goes back to line 60 to tell you to wake up again. This procedure 
will repeat u ntil you turn off the “alarm.” To do so, press 
liMSUili l. To return to the blue screen, press EQgQSlsQ 


W 
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Kaboom! 


All systems are go. Blastoff! 

10 FOR L=54272 TO 54296:POKE L,0:NEXT L 

20 V=54296 

21 AT=54277 

22 SR=54278 

23 HF=54273 

24 LF=54272 /X 

25 WF=54276 X—-X 

30 PRINT CHR$(147) / ' 

40 FOR R=1 TO 12:PRINT:NEXT R / 

50 PRINT TAB(17); "KABOOM !"^y 

60 FOR FL=1 TO 50 f /____ 

70 C=INT(16*RND(1)) ( 

80 POKE 53281,0 .—„ 

90 POKE V, 15 

91 POKE WF,129 /KT 

92 POKE AT,15 ( 

93 POKE HF,40 '*“■- 

94 POKE LF,200 O O 

100 NEXT FL 

110 POKE 53281,0 Q Q 

120 POKE 53280,0 

130 FOR P=1 TO 200:NEXT P 



(Add the next program to this one!) 


o 
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Main Ideas: Flashing colors 

Using RESTORE to enable reuse of data 

10 Clears all the sound registers. 

20-25 Assigns variable names for the appropriate addresses. V stands for 
volume, AT for attack/decay, SR for sustain/release, HF and LF for 
high and low frequency, WF for waveform. 

30 Clears the screen. 

40 Prints 12 blank rows. 

50 Prints “KABOOM!” near the center of the screen. 

60 The blastoff will consist of 50 flashes. 

70 Selects a number from 0 to 15 for color. 

80 Makes the screen whatever color was selected. 

90-94 Pokes values into sound addresses. 15 is the loudest volume, 129 
is the waveform for noise. The other values were experimental. Try 
your own! 

100 Goes back to line 60 until the 50 flashes are completed. 

110 Makes the background black. 

120 Makes the border black. 

130 Pauses. 
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Lift Off 


It’s up, up and away! 

150 PRINT "{CLRK21 DOWN}" 

160 PRINT TAB(19);"Z {4 SPACES}UP UP..." 

170 PRINT TAB(18);"N {1 SPACE} M" 

180 PRINT TAB( 18); " £G} {1 SPACE} W' 

190 PRINT TAB(17);"U {3 }P}} I" 

200 FOR L0UD=12 TO 0 STEP -1 
210 POKE V,LOUD 
220 POKE AT,96 
230 POKE SR,0 
240 POKE WF,17 
250 READ H,L 
260 IF H= —1 THEN 300 
270 POKE HF,H:POKE LF,L 
280 POKE WF,16 
290 GOTO 210 
300 PRINT:PRINT 
310 FOR T=1 TO 30:NEXT T 
320 RESTORE 
330 NEXT LOUD 

340 PRINT TAB(27);"...AND AWAY!" 

350 GOTO 350 
400 DATA 33,135,35,134,37,162,39,223,42,62 
410 DATA 44,193,47,107,50,60,53,57,56,99 
420 DATA 59,190,63,75,67,15 
430 DATA -1,-1 
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Main Idea: Moving an image up the screen 


You may run this program by itself, but it works well as an addition to the last 

program. 

150 Moves the cursor home, then down 21 rows. To get the {CLR}, 
press feanaa raHsmiMflg . It will look like G on the screen. 
To get the {21 DOWN}, press the 21 times. It 

will look like 

160-190 Draws the spaceship. Here are some helpful hints: 

160 Press QSH1I El- It will look like 

170 Press i5f mao. space, Kamaifil- It will look like 

180 Press K9I |£|, space, d It will look like “| |”. 

190 Press K£liilU El 3 Q Q, i^TTTal Q. It will look like 
“(■-)”• 

200-330 Makes 12 sets of lift-off sounds. Each set is a little softer than the 
last, and between each set 2 blank lines are printed (line 300) to 
give the illusion of moving the spaceship up the screen. 

340 Print this when finished. 

350 A dummy line to freeze the message and prevent the READY 
signal. It is called a dummy line because it keeps going to itself. 
Pretty dumb! 

400-420 Data for one set of sounds. The data is restored by line 320 so it 
can be used for all 12 blips. 

430 This is flag data used in line 260 to signal the end of one blip and 
move the spaceship up. 
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Music from Mother Earth 


What’s this? They’re sending you music from Earth. They must 
be testing the sound system! 

10 PRINT CHR$(147) 

20 POKE 53281,0 
30 PRINT CHR$(5) 

40 FOR R=1 TO 8:PRINT:NEXT R 

50 PRINT TAB(5);"TWINKLE TWINKLE LITTLE STAR" 

60 PRINT 

70 PRINT TAB(3);"HOW I WONDER HOW MANY THERE ARE!" 

80 FOR L=54272 TO 54296: POKE L,0:NEXT L 
90 V=54296: WF=54276 : AT=54277 : HF=54273 : LF=54272 : 

SR=54278 : HP=54275 : LP=54274 
170 POKE V,15 
180 POKE AT,88 
190 POKE SR,89 
200 POKE HP,9 
210 POKE LP,0 
220 READ H,L,T 
230 IF H= —1 THEN 400 
240 POKE HF,H 
250 POKE LF,L 
260 POKE WF,65 
270 PRINT "{HOME}" 

280 PRINT:PRINT TAB(5); 

290 FOR P=1 TO 200*T:NEXT P 

300 POKE WF,64 

310 PRINT CHR$(144) 

320 PRINT "{HOME}" 

330 PRINT:PRINT TAB(5);"*" 

340 FOR P=1 TO 30:NEXT P 
350 PRINT CHR$(5) 

360 GOTO 170 

370 DATA 33,135,1,33,135,1,50,60,1,50,60,1,56,99,1,56, 

99.1.50.60.2 

380 DATA 44,193,1,44,193,1,42,62,1,42,62,1,37,162,1,37, 

162.1.33.135.2 
390 DATA -l.-l.-l 
400 GOTO 400 
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Main Ideas: Playing a song 

Making an image blink 


10 

20 

30 

40 

50-70 

80 

90 


170-210 


240-260 


360 

370-380 

390 

400 


Clears the screen. 

Makes the screen black. 

Characters will be printed in white. 

Prints 8 blank lines. 

Positions and prints the title. 

Clears all the locations for sound. 

Assigns variable names to locations dealing with sound. These 
locations are: volume (54296), waveform (54276), attack/decay 
(54277), high frequency (54273), low frequency (54272), sus¬ 
tain/release (54278), high pulse (54275), low pulse (54274). 
Assigns values to various sound variables. Changing these values 
will produce different kinds of sounds. 

Reads three numbers from the data (in lines 370-390). H and L are 
the high and low frequencies for the note. T is the time (number of 
beats). Refer to the chart of Musical Notes in the Appendix. 
Checks for “flag” data. When the computer reads a -1 for the H 
value, the program skips to line 400. 

Assigns the first two values read in line 220 to high frequency and 
low frequency. Sets waveform to pulse (65). 

Move s the cursor to the home position in the upper left corner. 
Press It will look like Q. 

Prints a black line, then counts to column 5 and prints a star (in 
white). 

Uses the third value read in line 220 to determine how many beats 
to hold each note. To slow down the song, pick a number larger 
than 200 for the length of one beat. To speed it up, choose a 
smaller number. 

Turns off the waveform. 

Sets up black as the next color to use for printing characters. 
Sends the cursor home. 

Prints a black star on top of the white star, thereby erasing it. 
Pauses. 

Goes back to white, for printing characters. By switching from black 
to white to black, etc., the star appears to blink. 

Goes back to 170 to play the next note and print a blinking star. 
Data for each note. 

“Flag” data used to signal the end of the song. (See line 230.) 
Freezes the image on the screen. 


To count the stars, add the next program to this one. 
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Count the Stars 



400 REM COUNT STARS 
410 CT=0 

420 FOR R=1 TO 20:PRINT:NEXT R 

430 PRINT " PRESS ANY KEY TO COUNT THE STARS" 

440 GET K$>: IF K$="" THEN 440 

450 PRINT CHR$(147) 

460 CT=CT+1 

470 L=INT(40*RND(1)) 

480 PRINT CT;TAB(L);"*" 

490 GOTO 460 
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Main Ideas: Incrementing a variable 
An infinite loop 

For extra fun, add this program to your last program! 

400 A remark. 

410 Sets the counter at 0. 

420 Prints 20 blank rows. 

430 Prints directions near the bottom of the screen. 

440 Waits until a key is pressed. 

450 Clears the screen. 

460 Increments the count. This means that the count increases. In this 
case, the count is incremented by one. 

470 Picks a random number from 0 to 39. 

480 Prints the count and then prints a star at the random location. 

490 Goes back to 460 to print the next star, and the next, and the next, 
and . . . this loop will continue forever. It is called an infinite loop. 
To break the loop, press EsiugriciMif To return to the normal 
screen, press Bsliiflriswia IslskMfhia 
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Make Your Own Kind of^Wusfcl) ^ 

Why not play your own song? Press keys 1 to 8! o 

10 PRINT CHR$(147) n 
20 FOR R=1 TO 9:PRINT:NEXT R o 
30 PRINT TAB(4);"TO MAKE MUSIC, PRESS KEYS 1-8." n 
40 K=0:POKE 54276,64 

60 POKE 54296,15:REM VOLUME ° 
70 POKE 54277,20:REM ATTACK r\ 
80 POKE 54278,89:REM SUSTAIN-RELEASE n 
90 POKE 54275,9:REM HIGH PULSE 

100 POKE 54274,0:REM LOW PULSE n 
110 GET K: IF K<1 OR K>8 THEN 110 O 
120 POKE 54276,65:REM WAVEFORM n 


33 37 42 44 50 56 63 67 



130 IF K=1 THEN 
140 IF K=2 THEN 
150 IF K=3 THEN 
160 IF K=4 THEN 
170 IF K=5 THEN 
180 IF K=6 THEN 
190 IF K=7 THEN 
200 IF K=8 THEN 
210 GOTO 40 


POKE 54273,33: 
POKE 54273,37: 
POKE 54273,42 
POKE 54273,44 
POKE 54273,50 
POKE 54273,56 
POKE 54273,63 
POKE 54273,67 


POKE 54272,135 
POKE 54272,162 
POKE 54272,62 
POKE 54272,193 
POKE 54272,60 
POKE 54272,99 
POKE 54272,75 
POKE 54272,15 
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Main Ideas: Using the keyboard to play songs 

10 Clears the screen. 

20 Skips 9 lines by printing 9 blank rows. 

30 Goes to column 4 and prints directions. 

40 Sets K to 0 and turns off the waveform. 

60-100 Sets the variables to make sound. Changing these variables 
changes the characteristics of the sound. 

100 Sets up the keyboard for input. When you press a key, the value of 
K changes. 

120 Turns on the waveform. 

130-200 Depending on the key pressed, the high and low frequencies are 
set. Then the program goes back to line 40 to turn off the note and 
get the next one. For a complete chart of the notes and their high 
and low frequency values, refer to the Appendix. 
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What Is It? 

Something scary has appeared on your screen. What is it? 

10 PRINT CHR$(147) 

20 PRINT:PRINT 

30 GOSUB 190:PRINT SPC(4)"Z"SPC(3)"Z" 

40 GOSUB 190:PRINT SPC(4)"{2 SPACES} [*>| {2 SPACES}" 

50 GOSUB 190:PRINT SPC(4)"{5 SPACES}" 

60 GOSUB 190:PRINT SPC(4)"{SPACE} N {T] M [SPACE]" 

70 GOSUB 190:PRINT SPC(6)"{SPACE}" 

80 GOSUB 190:PRINT SPC(6)"{SPACE}" 

90 GOSUB 190: PRINT SPC(6)"{SPACE}" 

100 GOSUB 190:PRINT SPC(3)"{7 SPACES}" 

110 GOSUB 190:PRINT SPC(3)"{7 SPACES}" 

120 GOSUB 190:PRINT SPC(3)"[M] {5 SPACES} [G]" 

130 GOSUB 190:PRINT SPC(3)"[M] {5 SPACES} [G]" 

140 GOSUB 190:PRINT SPC(3)"[M] {5 SPACES} [G]" 

150 GOSUB 190:PRINT SPC(3)"[M] {5 SPACES} [G]" 

160 GOSUB 190:PRINT SPC(4)"{5 SPACES}" 

170 GOSUB 190:PRINT "{6 SPACES} B {6 SPACES}" 

180 GOTO 300 

190 REM GOSUB ROUTINE 

200 PRINT TAB(12); 

210 PRINT CHR$(18); 

220 PRINT CHR$(30); 

230 RETURN 
300 REM END 

0 4 8 9101112131415161718192021222324 


Program line 30: 

line 40: 
line 50: 
line 60: 
line 70: 
line 80: 
line 90: 
line 100 
line 110 
line 120 
line 130 
line 140 
line 150 
line 160 
line 170 
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Main Ideas: Drawing a picture on the screen 
Utilizing a GOSUB routine 

10 Clears the screen. 

20 Prints 2 blank lines. 


30-170 Draws the creature, using a GOSUB routine to repeat procedures.’ 
Remember that underlined letters in the printout are made by typ¬ 
ing Miliaa with the letter. Letters in £ i are made by typing Q| 
with the letter. SPC instructs the computer to skip over a certain 
number of spaces. 

30 Prints two ♦ shapes for eyes. Since the GOSUB turn on reversed 
characters and green color, the eyes appear on a green 
background. 

40 Prints 2 green spaces, a — for the nose, and another 2 spaces. 

50 Skips over 4 spaces and prints 5 green spaces. 

60 Prints a mouthx-^. 

70-90 Each line skips over 6 spaces and prints a space for the neck. 

100-110 Bot h lines skip over 3 spaces and print 7 spaces. 

120-150 The K2I and the (§H Q make the dark lines that separate 
the arms from the 5 spaces of body. 

160 Skips over 4 spaces and prints 5 spaces. 

170 Prints 6 spaces for each foot. Q prints the line between 

the feet. 


180 When finished drawing, skips to 300. 

190-230 The GOSUB routine: 

200 Goes to column 12. 

210 Turns on reverse. 

220 Selects green color. 

230 Returns to the program. 

300 Ends. 

To find out who this creature is, add the next program to this one. 
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Who Is It? 


Aha! Do you know who it is? Add these lines to your last pro¬ 
gram to solve the mystery! 


300 REM TEE HEE MUSIC 

310 FOR L=54272 TO 54296: POKE L,0:NEXT L 

320 POKE 54296,15:REM LOUDNESS 

330 POKE 54277,88:REM ATTACK 

340 POKE 54278,89:REM SUSTAIN 

350 POKE 54275,9:REM HIGH PULSE 

360 POKE 54274,0:REM LOW PULSE 

370 READ H,L,T 

380 IF H= —1 THEN 490 

390 C=INT(16*RND(1)) 

400 POKE 53281,C 

410 POKE 54273,H:POKE 54272,L:REM HIGH/LOW FREQUENCY 

420 POKE 54276,65:REM WAVEFORM 

430 FOR P=1 TO 100* T: NEXT P 

440 POKE 54276,64:REM WAVEFORM 

450 GOTO 370 

460 DATA 33,135,3,50,60,6,44,193,1,42,62,1,37,162,1, 

33.135.1.31.165.3.33.135.6 

470 DATA 28,49,3,56,99,6,50,60,1,44,193,1,42,62,1,37, 

162.1.35.134.3.37.162.6 
480 DATA -1,-1,-1 

490 PRINT "{HOME}" : FOR R=1 TO 20: PRINT: NEXT R 
500 PRINT "WATCH OUT FOR LASER BEAMS!" 

510 PRINT "IT’S TEE HEE, UNFRIENDLY ALIEN WHO NEVER 
EVER PHONES HOME!" 



Watch out for laser beams! 

520 POKE 53281,0 
530 PRINT "{HOME}" : PRINT 
540 PRINT TAB(12) CHR$(144); 
550 PRINT SPC(4)"*"SPC(3)"*" 
560 FOR P=1 TO 30:NEXT P 
570 PRINT "{HOME}" : PRINT 
580 PRINT TAB(12) CHR$(5); 
590 PRINT SPC(4)"*"SPC(3)"*" 
600 GOTO 530 
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Main Ideas: Combining graphics and sound 
Flashing background 

Making an object appear, disappear and reappear 
300 Remark. 

310-360 Pokes values into locations for sound. 

370 Reads high and low frequency, and time for each note. 

380 Checks for flag data. Flag data is used to signal the computer. In 
this case, it will go to line 490. 

390 Picks a random color. 

400 Changes the background to the color picked. 

410 Pokes in the values for high and low frequency. 

420 Turns on the waveform. 

430 Holds the note 100 units for each beat. 

440 Turns off the waveform. 

450 Goes back to 370 to set up the next note. 

460-470 Data for the notes. 

480 Flag data. 

490 Brings the cursor home, then co unts down 20 rows before printing. 
When you press it looks like “H” on the screen. 

500-510 Prints the message. 

515 Moves the drawing up closer to the laser beams. Try PRINT:PRINT 
to get even closer. —[ \ - > «—> 

H a@i\ 

j aaa 
jfr rnicumi 
□□□□ H3 



For Laser Beams: 

520 Makes the background black. 1 ' ' 1 

530 Brings the cursor home and skips a line. 

540 Goes to column 12 and selects black as the drawing color. 

550 Skips 4 spaces, prints a black star, skips 3 spaces and prints 
another black star (invisible since the background is black). 

560 Pauses and counts to 30. Change the 30 to a larger number for a 
longer pause. 

570 Brings the cursor home and skips a line. 

580 Goes to column 12 and selects white as the drawing color. 

590 Draws 2 white stars where the black ones had been drawn, flashing 
them on the screen. 

600 Goes to 530 to draw black stars thereby erasing the white ones. 
Changing from black to white to black again gives the illusion of 
blinking. 23 




















^ Main Ideas: Random outcome 
W Initializing and incrementing variables 

Using a GOSUB routine 

Initializes the variables at 0. H stands for hits and M stands for 
misses. 

Loops through 100 rounds of ammunition. 

Selects a 0 or a 1. 

If 0 was selected, adds one to the number of hits. 

If 1 was selected, adds one to the number of misses. 
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60 Goes to line 200 and makes a shooting sound. 

70 Turns off the sound of the shot. 

80 Prints the current score. 

90 Returns to line 20 for another round of ammunition. 

100 Prints this line if the number of hits is less than 50. 

100-120 Prints this if you had at least 50 hits. 

200-280 This is the GOSUB routine to produce shooting noises. 

210 Reduces the volume from loudest (15) to some number chosen at 
random, from 0 to 9. 

220-260 Sets the sound variables. The high and low frequencies are se¬ 
lected at random. Perform your own experiments and pick your 
own numbers (from 0 to 255). 

270 Loops back to line 210 for as many times as needed to reduce the 
volume. 

280 Returns to the program. 
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Meteors 

It’s a meteor shower. Can you steer your way through it? Good 
luck! 

10 PRINT "{CLR}" 

20 FOR SK=1 TO 25:PRINT:NEXT SK 
30 POKE 53280,5 
40 POKE 53281,0 
50 L=20 

60 POKE 18^4+L,81 
70 POKE 56096+L,5 
80 R=INT(40*RND(1)) 

90 POKE 19^4+R, 160 
100 POKE 56256 +R, 6 
110 J=PEEK ('56320) 

120 IF J=117 

OR J=118 OR J=119 
THEN L=l!+1 
130 IF J=121 OR 
J = 122 OR J = 123 
THEN L=L—1 

140 IF L>39 THEN L=39 
150 IF L<0 THEN L=0 
160 PRINT 
170 GOTO 60 

How about some collisions! And let’s keep count. You need to 
assess the damages to your spacecraft. 

45 T=0:C=0 

55 IF PEEK (1824+L) 032 THEN GOSUB 300 
162 T=T+1 

165 IF T=200 THEN GOTO 400 
170 GOTO 55 
300 REM COLLISION 
310 FOR E=1 TO 20 
320 F=INT(16*RND(1)) 

330 POKE 53281,F 
340 NEXT E 
350 POKE 53281,0 
360 C=C+1 
370 RETURN 
400 REM ENDING 

410 PRINT "THAT WAS ";C;" COLLISIONS!" 
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Main Ideas: Using the joystick to plot a course down the screen 


10 Clears the screen. To type the {CLR}, press E3SU9 
It looks like £] on the screen. 

20 Prints 25 blank lines. This moves the cursor down to the bottom of 
the screen. The next time something is printed, the screen will 
scroll up. This scrolling action gives the illusion of motion. 

30 Makes the border color 5 (green). 

40 Makes the background color 0 (black). 

50 Your beginning location is 20, halfway across the 40 column 
screen. 

60-70 Refer to your Screen Memory Map and Color Memory Map in the 
Appendix. Line 1824 and line 56096 are each 5 rows from the 
bottom. Display Code 81 (a circle) will be drawn for you in color 5 
(green). 

80 Picks a random integer from 0-39. 

90-100 Displays code 160 (a reversed space) at a random spot in the 
bottom row. This stands for a meteor and will be drawn in color 6 
(blue). 

110 Checks the joystick position. 

120 If you’ve pushed towards the right, 1 is added to your location (L). 

130 If you’ve pushed towards the left, 1 is subtracted. 

140-150 Keeps you at the edge of the screen if you push too far right or left. 

160 Prints a blank line, thereby making the screen scroll upwards. 


170 Goes back to line 60 to draw you and the next meteor. 


To make a game out of this, let’s count how many collisions you have out of 
200 times through the loop. 


45 Sets both counters to 0. At the beginning of the game, there are no 
times (T) through the loop and no collisions (C). 

55 Checks the location where you’re about to go. Code 32 stands for a 
space. If there’s something at your new location besides a space, 
you’re about to have a collision and you are sent to the collision 
routine beginning at line 300. 

162 Each time a meteor is displayed, adds one to the number of times 
through the loop. 

165 When the counter gets to 200, skips to 400. (To make the game 
longer, choose a number larger than 200.) 

400-410 Tells you how many collisions. 

300-370 This is a GOSUB routine. It flashes 20 times and adds 1 to the 
number of collisions. After the routine is performed, the RETURN 
statement in line 370 returns you to the main program at line 60 
(where you left off). 
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How Much Fuel? 

Oh no! The fuel gauge is broken! Can you guess how much fuel 
you have left? (A full tank holds 100 gallons.) 

5 PRINT "{CLR}" 

10 PRINT "HOW MANY GALLONS ARE LEFT?" 

20 F=INT(100*RND(1)) 

30 INPUT G 

40 IF G=F THEN 100 

50 IF G<F THEN PRINT "YOU HAVE MORE THAN THAT!" 

60 IF G>F THEN PRINT "NOT THAT MUCH!" 

70 GOTO 30 
100 PRINT "RIGHT!" 


This ending will evaluate 
the amount of fuel you 
have left. You need at 
least 30 gallons to land, but 
60 gallons would be better. 

100 PRINT "{CLR}" 

110 PRINT "{5 DOWNH10 RIGHT}{20 *}" 

120 PRINT "{5 DOWNK10 RIGHT}"; 

130 IF F<30 THEN PRINT SPC(4)"BAD NEWS!!!!":GOTO 160 
140 IF F<60 THEN PRINT SPC{3)"SHOULD BE 0K!!":G0T0 160 
150 IF F>=60 THEN PRINT SPC(4)"EXCELLENT!!!" 

160 PRINT "{5 DOWNH10 RIGHTH20 *}" 

170 GOTO 170 



O 

m 

r\ 

n 

r\ 

rs 

rs 
r> 
r ^ 

r\ 

o 

r ^ 
r\ 
r\ 
r\ 

r\ 

r> 

n 

r> 

o 


r\ 

n 

n 


28 





Main Ideas: Guessing Game 

Using SPC and cursor keys to position messages 

5 Clears the screen. (Press It will look likeQ 

on the screen.) 

10 Asks the question. 

20 Picks a number from 0 to 99 for fuel (F). 

30 Allows you to input your guess. 

40 Skips to line 100 if you guessed correctly. 

50 If you guessed too low, prints this hint. 

60 If you guessed too high, prints this hint. 

70 Goes back to line 30 so you can guess again. 

100 Prints “Right!” 

This section centers and prints a message, depending on the amount of fuel 
you have. 
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100 Clears the screen. _ 

110 To type this line, press imaeiiM 5 times, then 

10 times, and then 20 regular asterisks. This statement will 
move the cursor down 5 rows, and 10 spaces to the right before 
printing the stars. It will look like this on the screen: 
PRINT ********************* 

120 Moves 5 rows down and 10 spaces to the right. The semicolon 
holds the cursor in position before printing the necessary message. 

130-150 The SPC command is used to skip a designated number of spaces. 
Depending on the amount of fuel, an appropriate message is 
printed. 

160 Moves 5 rows down, 10 spaces right and prints 20 asterisks. 

170 A dummy line to freeze the image on the screen and prevent the 
READY signal. 
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Space Sketch 

Insert your joystick in port 2. Before doing the program, type in this short one. 
It will help you to understand the main program by showing what happens 
when you push the joystick in different directions. Also try the fire button. Can 
you find all the numbers in the diagram? 


1 J=PEEK (56320) 

2 PRINT J 

3 GOTO 1 



As you near your destination, you see something awesome. 
The camera is broken. Sketch what you see. NASA will want to 


study your drawing when you return 


10 PRINT "{CLR}" 

20 POKE 53280,7 
30 POKE 53281,0 
40 L=500:C=1 
50 POKE 1024+L,160 
60 POKE 55296+L,C 
70 J=PEEK(56320) 

80 IF J=127 THEN 70 
90 IF J=119 THEN L=L+1 
100 IF J=123 THEN L=L-1 
110 IF J = 126 THEN L=L-40 
120 IF J=125 THEN L=L+40 
190 IF L<0 OR L>999 THEN 
200 GOTO 50 
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How about drawing diagonally, and in different colors? 

130 IF J = 118 THEN L=L-39 
140 IF J = 117 THEN L=L+41 
150 IF J = 122 THEN L=L-41 

160 IF J=121 THEN L=L+39 _ 

170 IF J=lll THEN C=INT(16*RND( 1) ) 
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Main Idea: Using the joystick to draw 
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Here’s how it works: 
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SHIFT 


10 Clears the screen. To type the {CLR}, just press _ 

Pwn.Mfllsi . It will look like a reversed heart on the screen. 

20 Selects border color 7 (yellow). 

30 Selects background color 0 (black). 

40 Sets the location of the first characters at the 500th block, in the 
middle of the 1000-block screen. The color of the drawing will be 
color 1 (white). 

50 Draws a white block (a reversed space) at the current location. 
Refer to the screen codes in the Appendix. The code for a space is 
32. Add 128 to get a reversed space. Try your own combinations. 
For example, try code 81 (a dot) and then try 81 +128, or 209, for a 
reversed dot. 

60 Sets the color of the character being drawn. 

70 Checks the joystick. 

80 Goes back to 70 if the joystick is at rest and has not been pushed. 

90 Adds 1 to the location if you pushed right. 

100 Subtracts 1 for left. 

110 Subtracts 40 (one row contains 40 positions) if you pushed up. 

120 Adds 40 for down. 

190 If you try to go off the screen, you must start over. Watch out for the 
lower right and upper left corners! 

200 Goes to 50 to do the drawing. 

Here are some explanations about the addition to the program: 

130-160 These lines allow you to draw diagonally. When you push diago¬ 
nally, you are really pushing in two directions at the same time. 
Refer to the diagram to help you understand where the numbers 
come from. 

170 If the fire button is pressed, picks a new number for C, a number 
from 0 to 15. By changing the color you can make a multicolored 
drawing. You can also erase anything that you don’t like by drawing 
over it in a color you like. 
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Design Your Own Parachute 

Before leaving Earth, you were asked to design your own para¬ 
chute. If all goes well, you will make it safely back to Earth. 

5 PRINT "{CLR}" 

10 POKE 53280,6:POKE 53281,6 
20 V=53248 
30 POKE V+21,1 
40 POKE 2040,13 
50 POKE V+39,4 

60 FOR N=0 TO 62:READ D:P0KE 832+N,D:NEXT N 

100 DATA 

101 DATA 

102 DATA 

103 DATA 

104 DATA 

105 DATA 

106 DATA 

107 DATA 

108 DATA 

109 DATA 

110 DATA 

111 DATA 

112 DATA 

113 DATA 

114 DATA 

115 DATA 

116 DATA 

117 DATA 

118 DATA 

119 DATA 

120 DATA 

130 FOR X=1 TO 255: Y=X 
140 POKE V,X:POKE V+1,Y 
150 NEXT X 

160 PRINT:PRINT:PRINT "WELCOME BACK TO EARTH!" 

170 GOTO 170 

This line would make your parachute bigger: 

55 POKE V+23,1: POKE V+29,1 

For a little excitement, add the next program to this one. 


1.255.128 
7,255,224 
31,255,248 
31,255,248 
63,255,252 

127.255.254 

255.255.255 
255,255,255 
255,255,255 
128,8,1 
64,8,2 
32,8,4 
16,8,8 
8,8,16 
4,8,32 
2,8,64 

1.8.128 
0,137,0 
0,74,0 
0 , 60,0 
0 , 60,0 
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Main Ideas: Using binary numbers 
Creating a sprite 


_ii mmmmmmw 

■■hi mmmmmmm 
mmmmm iiiiiin 

jinn nmmmmmm ._.. 

mmmmmmwmmmmmmmmmmmmmi 
_ mmmmmm mmmmmm i mmmmmm i 
■■■■■■■■ «■■■■■■« »nn« 
iiiiiiii imhii iniiiii 
iiiiiin iiiiiiii ■■■■■■■■ 
■■■■■■a mmmmmi -- 


!■■■■■■■■ 
■■■■■■■■ 


i DATA 1, 255, 

DATA 7, 255, 

DATA 31, 255, 
DATA 31, 255, 
DATA 63, 255, 
DATA 127, 255, 
DATA 255,255, 
DATA 255,255, 
DATA 255, 255, 
DATA 128, 8, 
DATA 64, 8, 
DATA 32. 8, 
DATA 16, 8, 
DATA 8, 8, 

DATA 4, 8, 

DATA 2, 8, 

DATA 1, 8, 

DATA 0, 137, 

DATA 0, 74, 

DATA 0, 60, 
DATA 0, 60, 


Read your manual for a fuller description of sprites. Depending on how many 
boxes you use, you can obtain any value from 0 to 255. Try a few. 

128 64 32 16 8 4 2 1 


5 Pi 6 -?— the _ screen - To type the {CLR} press E23M 
HBafagMffiisa. It will look like a reversed heart on the screen. 

10 Makes a blue background and border. 

20 The starting address of the video chip. 

30 Enables sprite 0. 

40 Sprite 0 data from the 13th block. 

50 Sets the color of the parachute to purple. Refer to the Color Chart in 
the Appendix to select a different color. 

60 Reads the data for the sprite and pokes the values into locations 
832 to 894, locations reserved for sprite 0. 

100-120 Data for the parachute. Refer to the diagram. Each set of three 
numbers stands for the boxes colored in in the first, second, and 
third sections of a row. 


130-150 


1 50 ^ v The parachute is drawn at pixels 1,1; 2,2; 3,3; 

etc. Locations V (53248) and V+1 (53249) are 
poked again and again for the X and Y posi- 
tioning of sprite 0. 

160 Prints message. 

170 A dummy line used to prevent the READY signal. The line keeps 
going to itself, so the program “freezes.” Since the program never 
ends, you never get a READY signal. 
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Happy Landing 

On your descent to Earth you must decide when you need your 
parachute. Press “P” when you think the time is right. The 
timing is absolutely critical! (Add these lines to your last 
program.) 

6 PRINT "PRESS P FOR PARACHUTE!" 

7 GOSUB 200 

200 FOR L=54272 TO 54296:POKE L,0:NEXT L 
210 POKE 54296,15:POKE 54277,88:POKE 54278,89:POKE 
54275,9:POKE 54274,0 
220 FOR H=250 TO 1 STEP -2 

230 POKE 54276,65:POKE 54273,H:POKE 54272,100 
240 FOR P=1 TO 50:NEXT P:POKE 54276,64 
250 GET K$ 

260 IF K$="P" THEN 300 
270 NEXT H 

300 IF H> = 100 AND H< = 150 THEN RETURN 
310 IF H>150 THEN PRINT "TOO EARLY! SORRY!":END 
320 PRINT "TOO LATE!" 

330 FOR R=1 TO 20:PRINT:NEXT R 
340 PRINT " SPLAT!" 

350 GOTO 350 



r\ 

ry 

r\ 

n 

rs 

r\ 

o 

n 

o 

n 

n 

r\ 

o 

r\ 

o 



w 


v* 

w 

w 

V 

V 
w 

w 

w 

w 

w 

w 

w* 

V 
w 
w 
w 
w 
w 
w 

V 

w 

w 


Main Ideas: Creating a sound effect by playing a sequence of notes 
Using GET to interrupt a sequence 


When added to the parachute program, these lines will give you a game 
where timing is critical. 


6 

7 

200 

210 

220-270 

220 

230 

240 


250 

260 

270 

300-350 

300 

310 

320-350 


Prints instructions. 

Sends you to a GOSUB routine, a series of directions executed 
before returning to the main program. 

Clears the sound locations in the computer. 

Pokes values into locations related to creating sounds. 

Plays a sequence of notes. 

The high frequency will go from 250 to 1 by two’s. 

Turns on the waveform, pokes the high frequency value into memo¬ 
ry and maintains 100 as the low frequency value. 

Pauses and turns off the waveform. To slow down the sequence of 
notes, pick a number greater than 50. To speed up the sequence, 
select a number less than 50. 

Checks to see if a key has been pressed. 

If a P was pressed, skips to line 300. 

Continues to play the sequence of notes. 

Reacts depending on your place in the sequence of notes. 

If you are between notes 100 and 150, returns to the program 
above and draws the parachute. 

Prints this if you are between 250 and 150. 

Prints “TOO LATE” and prints 20 blank rows before printing 
“SPLAT!” The last line is a dummy line used to prevent a READY 
signal. 


TCRSRi 


V 

w 


NOTE: You may obtain the same result in line 330 by printing the |_ 

key 20 times. When you use this key inside quotation marks, it prints a 
reversed Q on the screen: 330 PRINT 
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Final Report o 

r\ 


It’s time to evaluate your mission. The General wants your re- 
port as soon as possible. r\ 

5 REM ASKS FOR INPUT ^ 

10 PRINT "{CLR}" 

15 PRINT "YOUR NAME"; ^ 

20 INPUT N$ 

25 PRINT "NAME OF GENERAL IS GEN."; n 

30 INPUT G$ O 

35 PRINT "PLANET VISITED"; ^ 

40 INPUT PL$ 

45 PRINT "LENGTH OF TRIP"; ° 

50 INPUT L$ n 

55 PRINT "DAY OF WEEK"; 0 

60 INPUT D$ _ 

65 PRINT "A NUMBER"; ~ 

70 INPUT N 

100 REM PRINTS REPORT 
110 PRINT "{CLR}" 

120 PRINT "REPORT OF "N$ 

130 PRINT "TO GEN."G$ 

140 PRINT r\ 

150 PRINT "MY MISSION TO ”?L$" IS COMPLETED." 0 

160 PRINT "THE MISSION LASTED "L$"." 

170 PRINT "I WILL SEND YOU A "N" PAGE" r '' 

180 PRINT "REPORT NEXT "D$"." O 
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Main Ideas: Inserting variables into a text 

Distinguishing between numeric and string variables 


5 

10 

15-70 


100-180 


SHIFT | CLR/HOME 


A reminder. 

Clears the screen. Press |__ 

Asks you to input some variables. There are two kinds of variables. 
String variables (N$, G$, PL$, etc.) contain alphabetic or alpha¬ 
numeric information, but numeric variables (N) can contain only 
numbers. When you are asked for a number (N), see what happens 
if you type in a letter. 


Prints the report. Notice the use of quotation marks and spaces. If 
you want to print a space, you must include it inside the quotes. 
One exception: the Commodore 64 will leave a space before and 
after printing a number. That is why line 170 uses no extra spaces 
inside the quotation marks. 



The Race for Space 

Find out who has won the race for space. 


10 PRINT "{CLR}" 

20 PRINT:PRINT TAB(10)"THE RACE FOR SPACE" ^ 

30 PRINT "{H0MEK7 DOWN} U.S.A." O 

40 PRINT "{H0MEK12 DOWN} U.S.S.R." - 

50 PRINT "{H0MEK1T DOWN} CHINA" 

60 U=0:R=0:C=0 ° 

70 X=INT(3*RND(1))+1 O 

80 IF U=40 OR R=40 OR C=40 THEN 200 ^ 

90 IF X=1 THEN PRINT "{H0ME}{8 D0WN}"SPC(U) 

"{GRN}X":U=U+1 ° 

100 IF X=2 THEN PRINT "{H0ME}{13 D0WN}"SPC(R) O 

"{RED}*" :R=R+1 

110 IF X=3 THEN PRINT "{H0MEK18 D0WN}"SPC(C) _ 

"{YELO}fi":C=C+l ~ 

120 GOTO 70 ^ 

200 PRINT "{H0MEK21 DOWN}" n 

210 IF U<40 THEN PRINT "TOO BAD,CAPTAIN! YOU MUST TRY 
HARDER!" 

220 IF U=40 THEN PRINT "CONGRATULATIONS,CAPTAIN!" ^ 

230 GOTO 230 
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Main Ideas: A race 

Experimenting with colors, symbols and cursor movement in the 
programming mode 

If you haven’t done so already, experiment with the keyboard in immediate 
mode. Type a key. Then type it again using Ifc^lllia . and again using ieiiw . 
and again using T ry each key. Whenever you need to, push 
B:(ik7ianTa to get back to the normal screen. Now you are 

ready to use some of these combinations in programming mode: 
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10 Clears the screen. Press tasnaa iddswsmfliia . 

20 Skips a line, counts to position 10 and prints. 

30 Brings the cur sor home, then down 7 rows to print “U.S .A.” To type 
this line press MWsriiLWjai . Then press Hkistasw 7 times. On 
the screen, line 30 looks like this: 30 PRINT. ,t isffT>T»W»Ti»Ti>l 
U.S.A.” 

40 Brings the cursor home, then down 12 rows to print “U.S.S.R.” 

50 Brings the cursor home, then down 17 rows to print “CHINA”. 

60 All 3 countries will begin the race at box 0. 

70 Picks a number from 1 to 3. 

80 Checks to see if any contestant is up to box 40. Since 39 is the last 
column, this would mean that someone has won the race. If there is 
a winner, the program skips to line 200. 

90 If the computer picked a 1, the cursor goes home, then down 8 
rows. It then skips the number of spaces that U has completed and 
prints a green clover. (To get {GRN} press fl , it looks 

like || on the screen. When you press fcUliaa Q you get the *.) 
It then adds one to the number of spaces that U has travelled so 
that each green clover is printed next to the last green clover. Be 
sure that you do not add extra spaces. 

100 If it picked a 2, the co mputer makes a red star for Russia. (To get 
{RED} press Ihimi Q. It looks like Q on the screen.) 

110 Similarly , a yellow circle is made for China. To get the {YELO} press 
IhmswEI It looks like Q on the screen. When you press iHsnaa 
Q you will get a •. 

120 Goes back to line 70 to select the next country to move ahead. 

200 Moves the cursor home, then down 21 rows. 

210 If the U.S. is not the country that reached 40, it means someone 
else has won the race, and the computer prints this message. 

220 If the U.S. is the winner, this message is printed. 

230 A dummy line to freeze the message on the screen. 

To run the race on a different colored screen, select a color from the color 
chart and add this line. I chose color 11 (gray): 15 POKE 53281, 11 
Also, experiment with the color keys and graphics symbols in lines 90, 100, 
and 110. Be sure to type the quotes before making changes so that the 
computer knows you are in the programming mode. If a line gets messed up, 
just type the whole line again. The new line will replace the old line. 






Break the Code 


r^ 


The General has sent you this final message. Run the program 
to break the code. 


10 PRINT M {CLR}{11 DOWN}” 

20 PRINT SPC(13); 

30 READ N 

40 IF N=-l THEN 100 
50 PRINT CHR$(N); 

60 GOTO 30 

70 DATA 79,86,69,82,32,65,78,68, 
32,79,85,84,33,-1 
100 GOTO 100 


10 PRINT "{CLR}" 

20 PRINT "WHAT CHARACTER DO YOU 
WANT TO KNOW?" 

30 INPUT A$ 

40 A=ASC (A$) 

50 PRINT "ITS CODE IS "A 
60 PRINT 
70 GOTO 20 
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Main idea: Using ASC and CHR$ to find out and use ASCII codes 

The codes you see here are standard to most computers. These code num¬ 
bers were used to create a secret message. 

10 Clears the screen and moves the cursor down 11 row s. To get the 
{CLR}, press MiiiaB Then press 11 towalasrt. 

On the computer screen, line 10 looks like this: 10 PRINT 


'QQQQQQQQQQQ N 


20 Skips 13 spaces. The semicolon keeps the cursor at the 14th posi¬ 
tion, ready to print. 

30 Reads a number from the data list. 

40 Checks to see if the last number has been read. If so, the program 
skips to line 100. 

50 Prints the character itself instead of its code number. The semi¬ 
colon is important because it keeps the cursor where you want it. 
Leave it out and see the difference! 

60 Goes back to read the next number. 

70 The code numbers. 

100 A dummy line to freeze the message and prevent the READY 
signal. 

To find the ASCII code for a character, say the letter M, type: 

PRINT ASC (“M”) 

If you don’t have a chart and you would like to find out codes, the program on 
the bottom of the page is useful for most characters: 

10 Clears the screen. 

20 Asks you for a character. If you type more than one character, the 
ASCII code of the first character will be returned. 

30 Allows you to input. 

40 Assigns the variable name A to the ASCII code number. 

50 Prints the code number. 

60 Skips a line. 

70 Goes back to get the next character you want to know. 


7 \m 

84 72 69 32 69 78 68 
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Appendix 

Color Chart, 45 
Memory Maps: 

Color Memory Map, 46 
Screen Memory Map, 47 
Musical Notes, 49 
Screen Display Codes, 50 
Sprite Planner, 51 
Typing Tips, 52 
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POKE 53281 for the background color. Example: POKE 53281,0 
POKE 53280 for the border color. Example: POKE 53280,2 
Refer to the Color Memory Map to POKE color at specific screen locations. 



COLOR MEMORY MAP 
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SCREEN MEMORY MAP 
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2023 

Consult the screen memory map when placing characters at specific screen locations. You will also need to refer to the 
chart of Screen Display Codes. 
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Musical Notes 


w 

w 

w 


w 
w 

w There are eight octaves of notes available to you on the Commo- 
dore 64. The number above each note is the HI FREQ value. 

. . The number below each note is its LOW FREQ value. 
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SCREEN DISPLAY CODES 
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128 64 32 16 8 4 2 1 128 64 32 16 8 4 2 1 128 
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SPRITE PLANNER 

Use this chart to create sprites for your Commodore 64. 



How it looks How it looks How to type it 

on the on the on the or type it 

PRINTOUT SCREEN KEYBOARD using CHR$ 
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Notes 

This page is for you to write on. 
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CLAIRE BAILEY PA55AMTIM0 



SPACE—an endless source of fascination for us all. Children, how¬ 
ever, have the imagination to project themselves into orbit as effort¬ 
lessly as they learn to talk. Now, ITTY BITTY BYTES OF SPACE 
encourages your child to explore the magic of space with the help 
of your home computer. Young readers are presented with bite-size 
programs and activities designed to excite their eyes, ears, and 
minds. Each program is accompanied by programming hints and 
suggestions for parents and teachers. Help your children learn, 
grow, and play—the computer way! 
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Table of Contentsi A Note to Parents and Teachers • Passing the Test • 
Gravity* Test Your Spacecraft* Wake Upl • Kaboom! • Lift Off* Music from 
Mother Earth • Count the Stars • Make Your Own Kind of Music • What Is 
It? • Who Is It? • Hit or Miss? • Meteors • How Much Fuel? • Space Sketch 
• Design Your Own Parachute • Happy Landing • Final Report • The Race 
for Space • Break the Code 



For more information on Creative Pastimes Books write to: 
Reston Computer Group 
11480 Sunset Hills Road 
Reston, VA 22090 


Reston Publishing Company, Inc. 

A Prentice-Hall Company 

Reston, Virginia 
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